RemoveAll;
  begin
  Log('RemoveAll');
  FMyList.removeall;
  CheckEmpty;
  end